home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 6 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  434b  |  16 lines
  1. 5 BASE=2*4096:POKE 53272,PEEK(53272) OR 8 :REM BITMAP AB 8192
  2. 10 POKE 53265,PEEK(53265) OR 32:REM BITMAPMODUS EINSCHALTEN
  3. 20 FOR I=BASE TO BASE+7999:POKE I,0:NEXT:REM BITMAP LOESCHEN
  4. 30 FOR I=1024 TO 2023:POKE I,3:NEXT:REM FARBEN AUF CYAN UND SCHWARZ
  5. 50 FOR X=0 TO 319 STEP .5:REM FUNKTION FUELLT BILDSCHIRM
  6. 60 Y=INT(90+80*SIN(X/10))
  7. 70 CH=INT(X/8)
  8. 80 RO=INT(Y/8)
  9. 85 LN=Y AND 7
  10. 90 BY=BASE+RO*320+8*CH+LN
  11. 100 BI=7-(X AND 7)
  12. 110 POKE BY,PEEK(BY) OR (2^BI)
  13. 120 NEXT X
  14. 125 POKE 1024,16
  15. 130 GOTO 130
  16.